C
      INTG_PREC NUME, MAXLN, NIT, NID, NID2, NIB
      R_PREC TEMMIN, DELT, DENMIN, DELD, FREQDEL, FREQMIN

      PARAMETER(NUME=12,MAXLN=220)
      PARAMETER(NIT=200,TEMMIN=3._RKIND,DELT=0.03_RKIND)
      PARAMETER(NID=300,DENMIN=-12._RKIND,DELD=0.05_RKIND,NID2=240)
      PARAMETER(NIB=400,FREQDEL=0.02_RKIND,FREQMIN=1._RKIND)
C
      INTG_PREC NJ(12), LLJ(12,30), IPHOT
      R_PREC ABUNJ(12), WJ(12,MAXLN), E3J(12,MAXLN), 
     .          FJ(12,MAXLN), EJ(12,30), EAJ(12,30),
     .          S2J(12,30), S3J(12,30), S4J(12,30),
     .          S5J(12,30), AN(NID), ABIN(NIB)

      COMMON/ATM/NJ,ABUNJ,WJ,E3J,FJ,EJ,EAJ,S2J,LLJ,S3J,
     .          S4J,S5J,AN,ABIN,IPHOT
C
C
